Call MBox(MFormDeluxe, "This is a situation of a very critical nature", "Agree", "", "", 4, "MessageBox Deluxe test 1", 205, 220, 150, "Times New Roman", "MS Sans Serif", 3000, 3000)
ShowAnswer
End Sub
Private Sub Command2_Click()
Label2.Caption = ""
Call MBox(MFormDeluxe, "You really want to overwrite these files ?" & vbCr & vbCr & "If you proceed, all data will be lost... ", "Proceed", "Oops !", "", 5, "MessageBox Deluxe test 2", 225, 192, 0, "MS Sans Serif", "Times New Roman", 1000, 5000)
ShowAnswer
End Sub
Private Sub Command3_Click()
Label2.Caption = ""
Call MBox(MFormDeluxe, "Do you want to print this file ?" & vbCr & vbCr & "Make sure there's enough paper in your printer before you hit the print-button...", "Print !", "Sorry !", "Can it be ?", 7, "MessageBox Deluxe test 3", 100, 192, 168, "Times New Roman", "Courier", 5000, 4000)
ShowAnswer
End Sub
Private Sub ShowAnswer()
If Message(0) = True Then Label2.Caption = "you hit the first button"
If Message(1) = True Then Label2.Caption = "you hit the second button"
If Message(2) = True Then Label2.Caption = "you hit the third button"